﻿Imports Microsoft.VisualBasic
Imports System.Data

Public Class clsSessionMenuRight

    Private UserName As String
    Private UserRight As String
    Private BranchCode As String
    Private BranchName As String
    Private BranchCodeUse As String
    Private DeptCode As String
    Private RoleGroup As String
    Private dsMenuRight As DataSet
    Private EmpFirstName As String
    Private EmpLastName As String
    Private ZoneCode As String
    Private isPwdExpire As String
    Private MustChangePwd As String
    Private AllCodeRight As String
    Private DateTimeLogin As String
    Private SOL_ID As String

    Public Property getUserName() As String
        Get
            Return UserName
        End Get
        Set(ByVal value As String)
            UserName = value
        End Set
    End Property

    Public Property getUserRight() As String
        Get
            Return UserRight
        End Get
        Set(ByVal value As String)
            UserRight = value
        End Set
    End Property

    Public Property getBranchCode() As String
        Get
            Return BranchCode
        End Get
        Set(ByVal value As String)
            BranchCode = value
        End Set
    End Property

    Public Property getBranchName() As String
        Get
            Return BranchName
        End Get
        Set(ByVal value As String)
            BranchName = value
        End Set
    End Property

    Public Property getBranchCodeUse() As String
        Get
            Return BranchCodeUse
        End Get
        Set(ByVal value As String)
            BranchCodeUse = value
        End Set
    End Property

    Public Property getDeptCode() As String
        Get
            Return DeptCode
        End Get
        Set(ByVal value As String)
            DeptCode = value
        End Set
    End Property

    Public Property getRoleGroup() As String
        Get
            Return RoleGroup
        End Get
        Set(ByVal value As String)
            RoleGroup = value
        End Set
    End Property

    Public Property getEmpFirstName() As String
        Get
            Return EmpFirstName
        End Get
        Set(ByVal value As String)
            EmpFirstName = value
        End Set
    End Property

    Public Property getEmpLastName() As String
        Get
            Return EmpLastName
        End Get
        Set(ByVal value As String)
            EmpLastName = value
        End Set
    End Property

    Public Property getZoneCode() As String
        Get
            Return ZoneCode
        End Get
        Set(ByVal value As String)
            ZoneCode = value
        End Set
    End Property

    Public Property getDsMenuRight() As DataSet
        Get
            Return dsMenuRight
        End Get
        Set(ByVal value As DataSet)
            dsMenuRight = value
        End Set
    End Property

    Public Property getIsPwdExpire() As String
        Get
            Return isPwdExpire
        End Get
        Set(ByVal value As String)
            isPwdExpire = value
        End Set
    End Property

    Public Property getMustChangePwd() As String
        Get
            Return MustChangePwd
        End Get
        Set(ByVal value As String)
            MustChangePwd = value
        End Set
    End Property
    Public Property getAllCodeRight() As String
        Get
            Return AllCodeRight
        End Get
        Set(ByVal value As String)
            AllCodeRight = value
        End Set
    End Property

    Public Property getDateTimeLogin() As String
        Get
            Return DateTimeLogin
        End Get
        Set(ByVal value As String)
            DateTimeLogin = value
        End Set
    End Property

    Public Property getSOL_ID() As String
        Get
            Return SOL_ID
        End Get
        Set(ByVal value As String)
            SOL_ID = value
        End Set
    End Property

    Public Sub New()
        UserName = ""
        UserRight = ""
        BranchCode = ""
        BranchName = ""
        BranchCodeUse = ""
        DeptCode = ""
        RoleGroup = ""
        dsMenuRight = New DataSet
        EmpFirstName = ""
        EmpLastName = ""
        ZoneCode = ""
        isPwdExpire = ""
        MustChangePwd = ""
        AllCodeRight = ""
        DateTimeLogin = ""
        SOL_ID = ""
    End Sub
End Class
